10 IFPEEK(44)<>192THEN60000
20 POKE56,207:POKE55,252:CLR:DV=PEEK(186):IFDV<8THENDV=8
25 POKE53280,0:POKE53281,0:POKE53246,PEEK(45):POKE43247,PEEK(46)
30 DIMP$(12),F$(12):TT$="[210]EPLACE [212]HIS [215]ITH [217]OUR [212]ITLE"
40 PRINT"[147][146][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
50 FORI=1TO3:PRINT"[158]                                        ";:NEXT
60 PRINT"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:GOSUB2500
70 POKE211,0:POKE214,22:SYS58732
80 PRINT"[146][153][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
90 PRINT"[159]                                        ";
100 PRINT"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
110 POKE2023,PEEK(2022):POKE56295,PEEK(56294):GOSUB2500
120 PRINT"[158]"SPC(20-LEN(TT$)/2)TT$
130 POKE211,10:POKE214,23:SYS58732:PRINT"[159][195][210][211][210]/[210][197][212][213][210][206] [212]O [211]ELECT
140 [153]"":[129]I[178]1[164]17
150 [153]"CONTSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[130]
160 [153]"":[129]I[178]1[164]14
170 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(":[130]
180 [153]"":[129]I[178]1[164]14
190 [153]"OPEN                               ":[130]
200 P$(1)[178]" LENONVERT (null)EARS (null)O (null)ECONDS    "
210 P$(2)[178]" LENONVERT (null)ILES (null)O (null)ICRONS    "
220 P$(3)[178]" VALMPTY                       "
230 P$(4)[178]" VALMPTY                       "
240 P$(5)[178]" VALMPTY                       "
250 P$(6)[178]" VALMPTY                       "
260 P$(7)[178]" VALMPTY                       "
270 P$(8)[178]" VALMPTY                       "
280 P$(9)[178]" VALMPTY                       "
290 P$(10)[178]" VALMPTY                       "
300 P$(11)[178]" VALMPTY                       "
310 P$(12)[178]" VALMPTY                       "
320 F$(1)[178]"YEAR SEC"
330 F$(2)[178]"MILE MIC
340 F$(3)=""
350 F$(4)=""
360 F$(5)=""
370 F$(6)=""
380 F$(7)=""
390 F$(8)=""
400 F$(9)=""
410 F$(10)=""
420 F$(11)=""
430 F$(12)=""
500 PRINT"":FORI=1TO12:PRINT"[159]"P$(I):NEXT:IT=1:OT=1:GOSUB800
510 GETA$:IFA$<>""ANDA$<>"[145]"ANDA$<>CHR$(13)ANDA$<>"Q"THEN510
515 IFA$="Q"THEN40000
520 OT=IT:IFA$=""THENIT=IT+1:IFIT>12THENIT=1
530 IFA$="[145]"THENIT=IT-1:IFIT<1THENIT=12
540 IFA$<>CHR$(13)THENGOSUB800:GOTO510
550 IFF$(IT)=""THENIT=1:GOSUB800:GOTO510
560 GOTO50000
800 POKE214,OT+6:POKE211,6:SYS58732:PRINT"[159]"P$(OT)
810 POKE214,IT+6:POKE211,6:SYS58732:WAIT53265,128,128:PRINT"[146][153]"P$(IT):RETURN
2499 STOP
2500 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
10000 CLOSE15:OPEN15,8,15,"S:HIGH BASIC":CLOSE15:SAVE"HIGH BASIC",8:STOP
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE186,8:END
40030 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
40040 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:P[207]46,8:CLR:L[207]"Q$A$Q$","I
40050 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
50000 A$=F$(IT):FORI=8TO10:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN50020
50005 CLOSE15:POKE787,119
50010 OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,E,E$:CLOSE15:IFE=63THEN50030
50015 REM OPEN15,I,15,"R"+A$+"="+A$:INPUT#15,E,E$:CLOSE15:IFE=63THEN50030
50020 NEXT:POKE214,23:POKE211,0:SYS58732:
50023 A$="[195]OULDN'T FIND "+F$(IT)+"!"
50025 PRINT"[159]                                        [145]";SPC(20-LEN(A$)/2)A$;
50026 POKE198,0:WAIT198,15:GETA$:RUN
50030 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
50040 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:CLR:L[207]"Q$A$Q$","I
50050 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
59999 STOP
60000 A$="HIGH BASIC":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN60020
60010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN60030
60020 NEXT:PRINT"[147]":POKE186,8:END
60030 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
60040 PRINT"[147]P[207]49152,0:P[207]44,192:P[207]43,1:P[207]56,207:P[207]55,252:CLR:L[207]"Q$A$Q$","I
60050 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END